Sprite 1984 - 1993/Sprite 1984 - 1993.iso/src/cmds/dumpsize/dumpsize

Text File | 1991-09-04 | 836 b | 46 lines

#!/sprite/cmds/perl

&init;
$tape = $ARGV[0];
shift;
while(<>) {
    if (/^$tape/) {
    ($f1, $f2, $f3, $size, $f4, $f5, $f6, $date) = split(' ');
    if ($date != $yesterday) {
        if ($yesterday != -1) {
        $dates[$days] = $yesterday;
        $sizes[$days] = $total;
        $files[$days] = $file;
        }
        $total = 0;
        $file = 0;
        $days++;
        $yesterday = $date;
    }
    $total += $size;
    $file++;
    }
    if (/.*Initializing.*\b$tape$/) {
    &init;
    }
}
$dates[$days] = $yesterday;
$sizes[$days] = $total;
$files[$days] = $file;
$days++;

$total = 0;
$file = 0;
for ($i = 0; $i < $days; $i++) {
    printf("Date: %d, %d files, %.2f MB\n", $dates[$i],
    $files[$i], $sizes[$i]);
    $total += $sizes[$i];
    $file += $files[$i];
}
printf("Totals : %d files, %.2f MB\n", $file, $total);

sub init {
    $yesterday = -1;
    $days = -1;
};